#!/usr/bin/perl -w

$machine=$ARGV[0];
select(undef,undef,undef,25);
if(!open(FD,">$::ENV{TRUECL_CFG}/vm/tmp-$machine")) {
	print STDERR "Failed to start machine '$machine' - unable to write to tmp file.\n";
	exit(1);
}
print FD "1\n";
close(FD);
exit(0);


